home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 24
/
AACD 24.iso
/
AACD
/
Programming
/
gcc-2.95.3-3
/
info
/
g77.info-12
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
GNU Info File
|
2001-07-15
|
49.9 KB
|
1,663 lines
This is Info file f/g77.info, produced by Makeinfo version 1.68 from
the input file ./f/g77.texi.
INFO-DIR-SECTION Programming
START-INFO-DIR-ENTRY
* g77: (g77). The GNU Fortran compiler.
END-INFO-DIR-ENTRY
This file documents the use and the internals of the GNU Fortran
(`g77') compiler. It corresponds to the GCC-2.95 version of `g77'.
Published by the Free Software Foundation 59 Temple Place - Suite 330
Boston, MA 02111-1307 USA
Copyright (C) 1995-1999 Free Software Foundation, Inc.
Permission is granted to make and distribute verbatim copies of this
manual provided the copyright notice and this permission notice are
preserved on all copies.
Permission is granted to copy and distribute modified versions of
this manual under the conditions for verbatim copying, provided also
that the sections entitled "GNU General Public License," "Funding for
Free Software," and "Protect Your Freedom--Fight `Look And Feel'" are
included exactly as in the original, and provided that the entire
resulting derived work is distributed under the terms of a permission
notice identical to this one.
Permission is granted to copy and distribute translations of this
manual into another language, under the above conditions for modified
versions, except that the sections entitled "GNU General Public
License," "Funding for Free Software," and "Protect Your Freedom--Fight
`Look And Feel'", and this permission notice, may be included in
translations approved by the Free Software Foundation instead of in the
original English.
Contributed by James Craig Burley (<craig@jcb-sc.com>). Inspired by
a first pass at translating `g77-0.5.16/f/DOC' that was contributed to
Craig by David Ronis (<ronis@onsager.chem.mcgill.ca>).
File: g77.info, Node: ChDir Intrinsic (function), Next: ChMod Intrinsic (function), Prev: CDSqRt Intrinsic, Up: Other Intrinsics
ChDir Intrinsic (function)
..........................
ChDir(DIR)
ChDir: `INTEGER(KIND=1)' function.
DIR: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Sets the current working directory to be DIR. Returns 0 on success
or a non-zero error code. See `chdir(3)'.
*Caution:* Using this routine during I/O to a unit connected with a
non-absolute file name can cause subsequent I/O on such a unit to fail
because the I/O library might reopen files by name.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note ChDir
Intrinsic (subroutine)::.
File: g77.info, Node: ChMod Intrinsic (function), Next: CosD Intrinsic, Prev: ChDir Intrinsic (function), Up: Other Intrinsics
ChMod Intrinsic (function)
..........................
ChMod(NAME, MODE)
ChMod: `INTEGER(KIND=1)' function.
NAME: `CHARACTER'; scalar; INTENT(IN).
MODE: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Changes the access mode of file NAME according to the specification
MODE, which is given in the format of `chmod(1)'. A null character
(`CHAR(0)') marks the end of the name in NAME--otherwise, trailing
blanks in NAME are ignored. Currently, NAME must not contain the
single quote character.
Returns 0 on success or a non-zero error code otherwise.
Note that this currently works by actually invoking `/bin/chmod' (or
the `chmod' found when the library was configured) and so might fail in
some circumstances and will, anyway, be slow.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note ChMod
Intrinsic (subroutine)::.
File: g77.info, Node: CosD Intrinsic, Next: DACosD Intrinsic, Prev: ChMod Intrinsic (function), Up: Other Intrinsics
CosD Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL CosD' to use this name for an
external procedure.
File: g77.info, Node: DACosD Intrinsic, Next: DASinD Intrinsic, Prev: CosD Intrinsic, Up: Other Intrinsics
DACosD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DACosD' to use this name for an
external procedure.
File: g77.info, Node: DASinD Intrinsic, Next: DATan2D Intrinsic, Prev: DACosD Intrinsic, Up: Other Intrinsics
DASinD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DASinD' to use this name for an
external procedure.
File: g77.info, Node: DATan2D Intrinsic, Next: DATanD Intrinsic, Prev: DASinD Intrinsic, Up: Other Intrinsics
DATan2D Intrinsic
.................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DATan2D' to use this name for
an external procedure.
File: g77.info, Node: DATanD Intrinsic, Next: Date Intrinsic, Prev: DATan2D Intrinsic, Up: Other Intrinsics
DATanD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DATanD' to use this name for an
external procedure.
File: g77.info, Node: Date Intrinsic, Next: DbleQ Intrinsic, Prev: DATanD Intrinsic, Up: Other Intrinsics
Date Intrinsic
..............
CALL Date(DATE)
DATE: `CHARACTER'; scalar; INTENT(OUT).
Intrinsic groups: `vxt'.
Description:
Returns DATE in the form `DD-MMM-YY', representing the numeric day
of the month DD, a three-character abbreviation of the month name MMM
and the last two digits of the year YY, e.g. `25-Nov-96'.
This intrinsic is not recommended, due to the year 2000 approaching.
Therefore, programs making use of this intrinsic might not be Year 2000
(Y2K) compliant. *Note CTime Intrinsic (subroutine)::, for information
on obtaining more digits for the current (or any) date.
File: g77.info, Node: DbleQ Intrinsic, Next: DCmplx Intrinsic, Prev: Date Intrinsic, Up: Other Intrinsics
DbleQ Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DbleQ' to use this name for an
external procedure.
File: g77.info, Node: DCmplx Intrinsic, Next: DConjg Intrinsic, Prev: DbleQ Intrinsic, Up: Other Intrinsics
DCmplx Intrinsic
................
DCmplx(X, Y)
DCmplx: `COMPLEX(KIND=2)' function.
X: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
Y: `INTEGER' or `REAL'; OPTIONAL (must be omitted if X is `COMPLEX');
scalar; INTENT(IN).
Intrinsic groups: `f2c', `vxt'.
Description:
If X is not type `COMPLEX', constructs a value of type
`COMPLEX(KIND=2)' from the real and imaginary values specified by X and
Y, respectively. If Y is omitted, `0D0' is assumed.
If X is type `COMPLEX', converts it to type `COMPLEX(KIND=2)'.
Although this intrinsic is not standard Fortran, it is a popular
extension offered by many compilers that support `DOUBLE COMPLEX',
since it offers the easiest way to convert to `DOUBLE COMPLEX' without
using Fortran 90 features (such as the `KIND=' argument to the
`CMPLX()' intrinsic).
(`CMPLX(0D0, 0D0)' returns a single-precision `COMPLEX' result, as
required by standard FORTRAN 77. That's why so many compilers provide
`DCMPLX()', since `DCMPLX(0D0, 0D0)' returns a `DOUBLE COMPLEX' result.
Still, `DCMPLX()' converts even `REAL*16' arguments to their `REAL*8'
equivalents in most dialects of Fortran, so neither it nor `CMPLX()'
allow easy construction of arbitrary-precision values without
potentially forcing a conversion involving extending or reducing
precision. GNU Fortran provides such an intrinsic, called `COMPLEX()'.)
*Note Complex Intrinsic::, for information on easily constructing a
`COMPLEX' value of arbitrary precision from `REAL' arguments.
File: g77.info, Node: DConjg Intrinsic, Next: DCosD Intrinsic, Prev: DCmplx Intrinsic, Up: Other Intrinsics
DConjg Intrinsic
................
DConjg(Z)
DConjg: `COMPLEX(KIND=2)' function.
Z: `COMPLEX(KIND=2)'; scalar; INTENT(IN).
Intrinsic groups: `f2c', `vxt'.
Description:
Archaic form of `CONJG()' that is specific to one type for Z. *Note
Conjg Intrinsic::.
File: g77.info, Node: DCosD Intrinsic, Next: DFloat Intrinsic, Prev: DConjg Intrinsic, Up: Other Intrinsics
DCosD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DCosD' to use this name for an
external procedure.
File: g77.info, Node: DFloat Intrinsic, Next: DFlotI Intrinsic, Prev: DCosD Intrinsic, Up: Other Intrinsics
DFloat Intrinsic
................
DFloat(A)
DFloat: `REAL(KIND=2)' function.
A: `INTEGER'; scalar; INTENT(IN).
Intrinsic groups: `f2c', `vxt'.
Description:
Archaic form of `REAL()' that is specific to one type for A. *Note
Real Intrinsic::.
File: g77.info, Node: DFlotI Intrinsic, Next: DFlotJ Intrinsic, Prev: DFloat Intrinsic, Up: Other Intrinsics
DFlotI Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DFlotI' to use this name for an
external procedure.
File: g77.info, Node: DFlotJ Intrinsic, Next: DImag Intrinsic, Prev: DFlotI Intrinsic, Up: Other Intrinsics
DFlotJ Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DFlotJ' to use this name for an
external procedure.
File: g77.info, Node: DImag Intrinsic, Next: DReal Intrinsic, Prev: DFlotJ Intrinsic, Up: Other Intrinsics
DImag Intrinsic
...............
DImag(Z)
DImag: `REAL(KIND=2)' function.
Z: `COMPLEX(KIND=2)'; scalar; INTENT(IN).
Intrinsic groups: `f2c', `vxt'.
Description:
Archaic form of `AIMAG()' that is specific to one type for Z. *Note
AImag Intrinsic::.
File: g77.info, Node: DReal Intrinsic, Next: DSinD Intrinsic, Prev: DImag Intrinsic, Up: Other Intrinsics
DReal Intrinsic
...............
DReal(A)
DReal: `REAL(KIND=2)' function.
A: `INTEGER', `REAL', or `COMPLEX'; scalar; INTENT(IN).
Intrinsic groups: `vxt'.
Description:
Converts A to `REAL(KIND=2)'.
If A is type `COMPLEX', its real part is converted (if necessary) to
`REAL(KIND=2)', and its imaginary part is disregarded.
Although this intrinsic is not standard Fortran, it is a popular
extension offered by many compilers that support `DOUBLE COMPLEX',
since it offers the easiest way to extract the real part of a `DOUBLE
COMPLEX' value without using the Fortran 90 `REAL()' intrinsic in a way
that produces a return value inconsistent with the way many FORTRAN 77
compilers handle `REAL()' of a `DOUBLE COMPLEX' value.
*Note RealPart Intrinsic::, for information on a GNU Fortran
intrinsic that avoids these areas of confusion.
*Note Dble Intrinsic::, for information on the standard FORTRAN 77
replacement for `DREAL()'.
*Note REAL() and AIMAG() of Complex::, for more information on this
issue.
File: g77.info, Node: DSinD Intrinsic, Next: DTanD Intrinsic, Prev: DReal Intrinsic, Up: Other Intrinsics
DSinD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DSinD' to use this name for an
external procedure.
File: g77.info, Node: DTanD Intrinsic, Next: DTime Intrinsic (function), Prev: DSinD Intrinsic, Up: Other Intrinsics
DTanD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL DTanD' to use this name for an
external procedure.
File: g77.info, Node: DTime Intrinsic (function), Next: FGet Intrinsic (function), Prev: DTanD Intrinsic, Up: Other Intrinsics
DTime Intrinsic (function)
..........................
DTime(TARRAY)
DTime: `REAL(KIND=1)' function.
TARRAY: `REAL(KIND=1)'; DIMENSION(2); INTENT(OUT).
Intrinsic groups: `badu77'.
Description:
Initially, return the number of seconds of runtime since the start
of the process's execution as the function value, and the user and
system components of this in `TARRAY(1)' and `TARRAY(2)' respectively.
The functions' value is equal to `TARRAY(1) + TARRAY(2)'.
Subsequent invocations of `DTIME()' return values accumulated since
the previous invocation.
On some systems, the underlying timings are represented using types
with sufficiently small limits that overflows (wraparounds) are
possible, such as 32-bit types. Therefore, the values returned by this
intrinsic might be, or become, negative, or numerically less than
previous values, during a single run of the compiled program.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note DTime
Intrinsic (subroutine)::.
File: g77.info, Node: FGet Intrinsic (function), Next: FGetC Intrinsic (function), Prev: DTime Intrinsic (function), Up: Other Intrinsics
FGet Intrinsic (function)
.........................
FGet(C)
FGet: `INTEGER(KIND=1)' function.
C: `CHARACTER'; scalar; INTENT(OUT).
Intrinsic groups: `badu77'.
Description:
Reads a single character into C in stream mode from unit 5
(by-passing normal formatted input) using `getc(3)'. Returns 0 on
success, -1 on end-of-file, and the error code from `ferror(3)'
otherwise.
Stream I/O should not be mixed with normal record-oriented
(formatted or unformatted) I/O on the same unit; the results are
unpredictable.
For information on other intrinsics with the same name: *Note FGet
Intrinsic (subroutine)::.
File: g77.info, Node: FGetC Intrinsic (function), Next: FloatI Intrinsic, Prev: FGet Intrinsic (function), Up: Other Intrinsics
FGetC Intrinsic (function)
..........................
FGetC(UNIT, C)
FGetC: `INTEGER(KIND=1)' function.
UNIT: `INTEGER'; scalar; INTENT(IN).
C: `CHARACTER'; scalar; INTENT(OUT).
Intrinsic groups: `badu77'.
Description:
Reads a single character into C in stream mode from unit UNIT
(by-passing normal formatted output) using `getc(3)'. Returns 0 on
success, -1 on end-of-file, and the error code from `ferror(3)'
otherwise.
Stream I/O should not be mixed with normal record-oriented
(formatted or unformatted) I/O on the same unit; the results are
unpredictable.
For information on other intrinsics with the same name: *Note FGetC
Intrinsic (subroutine)::.
File: g77.info, Node: FloatI Intrinsic, Next: FloatJ Intrinsic, Prev: FGetC Intrinsic (function), Up: Other Intrinsics
FloatI Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL FloatI' to use this name for an
external procedure.
File: g77.info, Node: FloatJ Intrinsic, Next: FPut Intrinsic (function), Prev: FloatI Intrinsic, Up: Other Intrinsics
FloatJ Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL FloatJ' to use this name for an
external procedure.
File: g77.info, Node: FPut Intrinsic (function), Next: FPutC Intrinsic (function), Prev: FloatJ Intrinsic, Up: Other Intrinsics
FPut Intrinsic (function)
.........................
FPut(C)
FPut: `INTEGER(KIND=1)' function.
C: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Writes the single character C in stream mode to unit 6 (by-passing
normal formatted output) using `getc(3)'. Returns 0 on success, the
error code from `ferror(3)' otherwise.
Stream I/O should not be mixed with normal record-oriented
(formatted or unformatted) I/O on the same unit; the results are
unpredictable.
For information on other intrinsics with the same name: *Note FPut
Intrinsic (subroutine)::.
File: g77.info, Node: FPutC Intrinsic (function), Next: IDate Intrinsic (VXT), Prev: FPut Intrinsic (function), Up: Other Intrinsics
FPutC Intrinsic (function)
..........................
FPutC(UNIT, C)
FPutC: `INTEGER(KIND=1)' function.
UNIT: `INTEGER'; scalar; INTENT(IN).
C: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Writes the single character C in stream mode to unit UNIT
(by-passing normal formatted output) using `putc(3)'. Returns 0 on
success, the error code from `ferror(3)' otherwise.
Stream I/O should not be mixed with normal record-oriented
(formatted or unformatted) I/O on the same unit; the results are
unpredictable.
For information on other intrinsics with the same name: *Note FPutC
Intrinsic (subroutine)::.
File: g77.info, Node: IDate Intrinsic (VXT), Next: IIAbs Intrinsic, Prev: FPutC Intrinsic (function), Up: Other Intrinsics
IDate Intrinsic (VXT)
.....................
CALL IDate(M, D, Y)
M: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
D: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
Y: `INTEGER(KIND=1)'; scalar; INTENT(OUT).
Intrinsic groups: `vxt'.
Description:
Returns the numerical values of the current local time. The month
(in the range 1-12) is returned in M, the day (in the range 1-7) in D,
and the year in Y (in the range 0-99).
This intrinsic is not recommended, due to the year 2000 approaching.
Therefore, programs making use of this intrinsic might not be Year 2000
(Y2K) compliant. For example, the date might appear, to such programs,
to wrap around (change from a larger value to a smaller one) as of the
Year 2000.
*Note IDate Intrinsic (UNIX)::, for information on obtaining more
digits for the current date.
For information on other intrinsics with the same name: *Note IDate
Intrinsic (UNIX)::.
File: g77.info, Node: IIAbs Intrinsic, Next: IIAnd Intrinsic, Prev: IDate Intrinsic (VXT), Up: Other Intrinsics
IIAbs Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIAbs' to use this name for an
external procedure.
File: g77.info, Node: IIAnd Intrinsic, Next: IIBClr Intrinsic, Prev: IIAbs Intrinsic, Up: Other Intrinsics
IIAnd Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIAnd' to use this name for an
external procedure.
File: g77.info, Node: IIBClr Intrinsic, Next: IIBits Intrinsic, Prev: IIAnd Intrinsic, Up: Other Intrinsics
IIBClr Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIBClr' to use this name for an
external procedure.
File: g77.info, Node: IIBits Intrinsic, Next: IIBSet Intrinsic, Prev: IIBClr Intrinsic, Up: Other Intrinsics
IIBits Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIBits' to use this name for an
external procedure.
File: g77.info, Node: IIBSet Intrinsic, Next: IIDiM Intrinsic, Prev: IIBits Intrinsic, Up: Other Intrinsics
IIBSet Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIBSet' to use this name for an
external procedure.
File: g77.info, Node: IIDiM Intrinsic, Next: IIDInt Intrinsic, Prev: IIBSet Intrinsic, Up: Other Intrinsics
IIDiM Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIDiM' to use this name for an
external procedure.
File: g77.info, Node: IIDInt Intrinsic, Next: IIDNnt Intrinsic, Prev: IIDiM Intrinsic, Up: Other Intrinsics
IIDInt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIDInt' to use this name for an
external procedure.
File: g77.info, Node: IIDNnt Intrinsic, Next: IIEOr Intrinsic, Prev: IIDInt Intrinsic, Up: Other Intrinsics
IIDNnt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIDNnt' to use this name for an
external procedure.
File: g77.info, Node: IIEOr Intrinsic, Next: IIFix Intrinsic, Prev: IIDNnt Intrinsic, Up: Other Intrinsics
IIEOr Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIEOr' to use this name for an
external procedure.
File: g77.info, Node: IIFix Intrinsic, Next: IInt Intrinsic, Prev: IIEOr Intrinsic, Up: Other Intrinsics
IIFix Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIFix' to use this name for an
external procedure.
File: g77.info, Node: IInt Intrinsic, Next: IIOr Intrinsic, Prev: IIFix Intrinsic, Up: Other Intrinsics
IInt Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IInt' to use this name for an
external procedure.
File: g77.info, Node: IIOr Intrinsic, Next: IIQint Intrinsic, Prev: IInt Intrinsic, Up: Other Intrinsics
IIOr Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIOr' to use this name for an
external procedure.
File: g77.info, Node: IIQint Intrinsic, Next: IIQNnt Intrinsic, Prev: IIOr Intrinsic, Up: Other Intrinsics
IIQint Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIQint' to use this name for an
external procedure.
File: g77.info, Node: IIQNnt Intrinsic, Next: IIShftC Intrinsic, Prev: IIQint Intrinsic, Up: Other Intrinsics
IIQNnt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIQNnt' to use this name for an
external procedure.
File: g77.info, Node: IIShftC Intrinsic, Next: IISign Intrinsic, Prev: IIQNnt Intrinsic, Up: Other Intrinsics
IIShftC Intrinsic
.................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IIShftC' to use this name for
an external procedure.
File: g77.info, Node: IISign Intrinsic, Next: IMax0 Intrinsic, Prev: IIShftC Intrinsic, Up: Other Intrinsics
IISign Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IISign' to use this name for an
external procedure.
File: g77.info, Node: IMax0 Intrinsic, Next: IMax1 Intrinsic, Prev: IISign Intrinsic, Up: Other Intrinsics
IMax0 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IMax0' to use this name for an
external procedure.
File: g77.info, Node: IMax1 Intrinsic, Next: IMin0 Intrinsic, Prev: IMax0 Intrinsic, Up: Other Intrinsics
IMax1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IMax1' to use this name for an
external procedure.
File: g77.info, Node: IMin0 Intrinsic, Next: IMin1 Intrinsic, Prev: IMax1 Intrinsic, Up: Other Intrinsics
IMin0 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IMin0' to use this name for an
external procedure.
File: g77.info, Node: IMin1 Intrinsic, Next: IMod Intrinsic, Prev: IMin0 Intrinsic, Up: Other Intrinsics
IMin1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IMin1' to use this name for an
external procedure.
File: g77.info, Node: IMod Intrinsic, Next: INInt Intrinsic, Prev: IMin1 Intrinsic, Up: Other Intrinsics
IMod Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IMod' to use this name for an
external procedure.
File: g77.info, Node: INInt Intrinsic, Next: INot Intrinsic, Prev: IMod Intrinsic, Up: Other Intrinsics
INInt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL INInt' to use this name for an
external procedure.
File: g77.info, Node: INot Intrinsic, Next: IZExt Intrinsic, Prev: INInt Intrinsic, Up: Other Intrinsics
INot Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL INot' to use this name for an
external procedure.
File: g77.info, Node: IZExt Intrinsic, Next: JIAbs Intrinsic, Prev: INot Intrinsic, Up: Other Intrinsics
IZExt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL IZExt' to use this name for an
external procedure.
File: g77.info, Node: JIAbs Intrinsic, Next: JIAnd Intrinsic, Prev: IZExt Intrinsic, Up: Other Intrinsics
JIAbs Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIAbs' to use this name for an
external procedure.
File: g77.info, Node: JIAnd Intrinsic, Next: JIBClr Intrinsic, Prev: JIAbs Intrinsic, Up: Other Intrinsics
JIAnd Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIAnd' to use this name for an
external procedure.
File: g77.info, Node: JIBClr Intrinsic, Next: JIBits Intrinsic, Prev: JIAnd Intrinsic, Up: Other Intrinsics
JIBClr Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIBClr' to use this name for an
external procedure.
File: g77.info, Node: JIBits Intrinsic, Next: JIBSet Intrinsic, Prev: JIBClr Intrinsic, Up: Other Intrinsics
JIBits Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIBits' to use this name for an
external procedure.
File: g77.info, Node: JIBSet Intrinsic, Next: JIDiM Intrinsic, Prev: JIBits Intrinsic, Up: Other Intrinsics
JIBSet Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIBSet' to use this name for an
external procedure.
File: g77.info, Node: JIDiM Intrinsic, Next: JIDInt Intrinsic, Prev: JIBSet Intrinsic, Up: Other Intrinsics
JIDiM Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIDiM' to use this name for an
external procedure.
File: g77.info, Node: JIDInt Intrinsic, Next: JIDNnt Intrinsic, Prev: JIDiM Intrinsic, Up: Other Intrinsics
JIDInt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIDInt' to use this name for an
external procedure.
File: g77.info, Node: JIDNnt Intrinsic, Next: JIEOr Intrinsic, Prev: JIDInt Intrinsic, Up: Other Intrinsics
JIDNnt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIDNnt' to use this name for an
external procedure.
File: g77.info, Node: JIEOr Intrinsic, Next: JIFix Intrinsic, Prev: JIDNnt Intrinsic, Up: Other Intrinsics
JIEOr Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIEOr' to use this name for an
external procedure.
File: g77.info, Node: JIFix Intrinsic, Next: JInt Intrinsic, Prev: JIEOr Intrinsic, Up: Other Intrinsics
JIFix Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIFix' to use this name for an
external procedure.
File: g77.info, Node: JInt Intrinsic, Next: JIOr Intrinsic, Prev: JIFix Intrinsic, Up: Other Intrinsics
JInt Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JInt' to use this name for an
external procedure.
File: g77.info, Node: JIOr Intrinsic, Next: JIQint Intrinsic, Prev: JInt Intrinsic, Up: Other Intrinsics
JIOr Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIOr' to use this name for an
external procedure.
File: g77.info, Node: JIQint Intrinsic, Next: JIQNnt Intrinsic, Prev: JIOr Intrinsic, Up: Other Intrinsics
JIQint Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIQint' to use this name for an
external procedure.
File: g77.info, Node: JIQNnt Intrinsic, Next: JIShft Intrinsic, Prev: JIQint Intrinsic, Up: Other Intrinsics
JIQNnt Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIQNnt' to use this name for an
external procedure.
File: g77.info, Node: JIShft Intrinsic, Next: JIShftC Intrinsic, Prev: JIQNnt Intrinsic, Up: Other Intrinsics
JIShft Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIShft' to use this name for an
external procedure.
File: g77.info, Node: JIShftC Intrinsic, Next: JISign Intrinsic, Prev: JIShft Intrinsic, Up: Other Intrinsics
JIShftC Intrinsic
.................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JIShftC' to use this name for
an external procedure.
File: g77.info, Node: JISign Intrinsic, Next: JMax0 Intrinsic, Prev: JIShftC Intrinsic, Up: Other Intrinsics
JISign Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JISign' to use this name for an
external procedure.
File: g77.info, Node: JMax0 Intrinsic, Next: JMax1 Intrinsic, Prev: JISign Intrinsic, Up: Other Intrinsics
JMax0 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JMax0' to use this name for an
external procedure.
File: g77.info, Node: JMax1 Intrinsic, Next: JMin0 Intrinsic, Prev: JMax0 Intrinsic, Up: Other Intrinsics
JMax1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JMax1' to use this name for an
external procedure.
File: g77.info, Node: JMin0 Intrinsic, Next: JMin1 Intrinsic, Prev: JMax1 Intrinsic, Up: Other Intrinsics
JMin0 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JMin0' to use this name for an
external procedure.
File: g77.info, Node: JMin1 Intrinsic, Next: JMod Intrinsic, Prev: JMin0 Intrinsic, Up: Other Intrinsics
JMin1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JMin1' to use this name for an
external procedure.
File: g77.info, Node: JMod Intrinsic, Next: JNInt Intrinsic, Prev: JMin1 Intrinsic, Up: Other Intrinsics
JMod Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JMod' to use this name for an
external procedure.
File: g77.info, Node: JNInt Intrinsic, Next: JNot Intrinsic, Prev: JMod Intrinsic, Up: Other Intrinsics
JNInt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JNInt' to use this name for an
external procedure.
File: g77.info, Node: JNot Intrinsic, Next: JZExt Intrinsic, Prev: JNInt Intrinsic, Up: Other Intrinsics
JNot Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JNot' to use this name for an
external procedure.
File: g77.info, Node: JZExt Intrinsic, Next: Kill Intrinsic (function), Prev: JNot Intrinsic, Up: Other Intrinsics
JZExt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL JZExt' to use this name for an
external procedure.
File: g77.info, Node: Kill Intrinsic (function), Next: Link Intrinsic (function), Prev: JZExt Intrinsic, Up: Other Intrinsics
Kill Intrinsic (function)
.........................
Kill(PID, SIGNAL)
Kill: `INTEGER(KIND=1)' function.
PID: `INTEGER'; scalar; INTENT(IN).
SIGNAL: `INTEGER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Sends the signal specified by SIGNAL to the process PID. Returns 0
on success or a non-zero error code. See `kill(2)'.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note Kill
Intrinsic (subroutine)::.
File: g77.info, Node: Link Intrinsic (function), Next: QAbs Intrinsic, Prev: Kill Intrinsic (function), Up: Other Intrinsics
Link Intrinsic (function)
.........................
Link(PATH1, PATH2)
Link: `INTEGER(KIND=1)' function.
PATH1: `CHARACTER'; scalar; INTENT(IN).
PATH2: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Makes a (hard) link from file PATH1 to PATH2. A null character
(`CHAR(0)') marks the end of the names in PATH1 and PATH2--otherwise,
trailing blanks in PATH1 and PATH2 are ignored. Returns 0 on success
or a non-zero error code. See `link(2)'.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note Link
Intrinsic (subroutine)::.
File: g77.info, Node: QAbs Intrinsic, Next: QACos Intrinsic, Prev: Link Intrinsic (function), Up: Other Intrinsics
QAbs Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QAbs' to use this name for an
external procedure.
File: g77.info, Node: QACos Intrinsic, Next: QACosD Intrinsic, Prev: QAbs Intrinsic, Up: Other Intrinsics
QACos Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QACos' to use this name for an
external procedure.
File: g77.info, Node: QACosD Intrinsic, Next: QASin Intrinsic, Prev: QACos Intrinsic, Up: Other Intrinsics
QACosD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QACosD' to use this name for an
external procedure.
File: g77.info, Node: QASin Intrinsic, Next: QASinD Intrinsic, Prev: QACosD Intrinsic, Up: Other Intrinsics
QASin Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QASin' to use this name for an
external procedure.
File: g77.info, Node: QASinD Intrinsic, Next: QATan Intrinsic, Prev: QASin Intrinsic, Up: Other Intrinsics
QASinD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QASinD' to use this name for an
external procedure.
File: g77.info, Node: QATan Intrinsic, Next: QATan2 Intrinsic, Prev: QASinD Intrinsic, Up: Other Intrinsics
QATan Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QATan' to use this name for an
external procedure.
File: g77.info, Node: QATan2 Intrinsic, Next: QATan2D Intrinsic, Prev: QATan Intrinsic, Up: Other Intrinsics
QATan2 Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QATan2' to use this name for an
external procedure.
File: g77.info, Node: QATan2D Intrinsic, Next: QATanD Intrinsic, Prev: QATan2 Intrinsic, Up: Other Intrinsics
QATan2D Intrinsic
.................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QATan2D' to use this name for
an external procedure.
File: g77.info, Node: QATanD Intrinsic, Next: QCos Intrinsic, Prev: QATan2D Intrinsic, Up: Other Intrinsics
QATanD Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QATanD' to use this name for an
external procedure.
File: g77.info, Node: QCos Intrinsic, Next: QCosD Intrinsic, Prev: QATanD Intrinsic, Up: Other Intrinsics
QCos Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QCos' to use this name for an
external procedure.
File: g77.info, Node: QCosD Intrinsic, Next: QCosH Intrinsic, Prev: QCos Intrinsic, Up: Other Intrinsics
QCosD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QCosD' to use this name for an
external procedure.
File: g77.info, Node: QCosH Intrinsic, Next: QDiM Intrinsic, Prev: QCosD Intrinsic, Up: Other Intrinsics
QCosH Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QCosH' to use this name for an
external procedure.
File: g77.info, Node: QDiM Intrinsic, Next: QExp Intrinsic, Prev: QCosH Intrinsic, Up: Other Intrinsics
QDiM Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QDiM' to use this name for an
external procedure.
File: g77.info, Node: QExp Intrinsic, Next: QExt Intrinsic, Prev: QDiM Intrinsic, Up: Other Intrinsics
QExp Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QExp' to use this name for an
external procedure.
File: g77.info, Node: QExt Intrinsic, Next: QExtD Intrinsic, Prev: QExp Intrinsic, Up: Other Intrinsics
QExt Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QExt' to use this name for an
external procedure.
File: g77.info, Node: QExtD Intrinsic, Next: QFloat Intrinsic, Prev: QExt Intrinsic, Up: Other Intrinsics
QExtD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QExtD' to use this name for an
external procedure.
File: g77.info, Node: QFloat Intrinsic, Next: QInt Intrinsic, Prev: QExtD Intrinsic, Up: Other Intrinsics
QFloat Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QFloat' to use this name for an
external procedure.
File: g77.info, Node: QInt Intrinsic, Next: QLog Intrinsic, Prev: QFloat Intrinsic, Up: Other Intrinsics
QInt Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QInt' to use this name for an
external procedure.
File: g77.info, Node: QLog Intrinsic, Next: QLog10 Intrinsic, Prev: QInt Intrinsic, Up: Other Intrinsics
QLog Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QLog' to use this name for an
external procedure.
File: g77.info, Node: QLog10 Intrinsic, Next: QMax1 Intrinsic, Prev: QLog Intrinsic, Up: Other Intrinsics
QLog10 Intrinsic
................
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QLog10' to use this name for an
external procedure.
File: g77.info, Node: QMax1 Intrinsic, Next: QMin1 Intrinsic, Prev: QLog10 Intrinsic, Up: Other Intrinsics
QMax1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QMax1' to use this name for an
external procedure.
File: g77.info, Node: QMin1 Intrinsic, Next: QMod Intrinsic, Prev: QMax1 Intrinsic, Up: Other Intrinsics
QMin1 Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QMin1' to use this name for an
external procedure.
File: g77.info, Node: QMod Intrinsic, Next: QNInt Intrinsic, Prev: QMin1 Intrinsic, Up: Other Intrinsics
QMod Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QMod' to use this name for an
external procedure.
File: g77.info, Node: QNInt Intrinsic, Next: QSin Intrinsic, Prev: QMod Intrinsic, Up: Other Intrinsics
QNInt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QNInt' to use this name for an
external procedure.
File: g77.info, Node: QSin Intrinsic, Next: QSinD Intrinsic, Prev: QNInt Intrinsic, Up: Other Intrinsics
QSin Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QSin' to use this name for an
external procedure.
File: g77.info, Node: QSinD Intrinsic, Next: QSinH Intrinsic, Prev: QSin Intrinsic, Up: Other Intrinsics
QSinD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QSinD' to use this name for an
external procedure.
File: g77.info, Node: QSinH Intrinsic, Next: QSqRt Intrinsic, Prev: QSinD Intrinsic, Up: Other Intrinsics
QSinH Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QSinH' to use this name for an
external procedure.
File: g77.info, Node: QSqRt Intrinsic, Next: QTan Intrinsic, Prev: QSinH Intrinsic, Up: Other Intrinsics
QSqRt Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QSqRt' to use this name for an
external procedure.
File: g77.info, Node: QTan Intrinsic, Next: QTanD Intrinsic, Prev: QSqRt Intrinsic, Up: Other Intrinsics
QTan Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QTan' to use this name for an
external procedure.
File: g77.info, Node: QTanD Intrinsic, Next: QTanH Intrinsic, Prev: QTan Intrinsic, Up: Other Intrinsics
QTanD Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QTanD' to use this name for an
external procedure.
File: g77.info, Node: QTanH Intrinsic, Next: Rename Intrinsic (function), Prev: QTanD Intrinsic, Up: Other Intrinsics
QTanH Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL QTanH' to use this name for an
external procedure.
File: g77.info, Node: Rename Intrinsic (function), Next: Secnds Intrinsic, Prev: QTanH Intrinsic, Up: Other Intrinsics
Rename Intrinsic (function)
...........................
Rename(PATH1, PATH2)
Rename: `INTEGER(KIND=1)' function.
PATH1: `CHARACTER'; scalar; INTENT(IN).
PATH2: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Renames the file PATH1 to PATH2. A null character (`CHAR(0)') marks
the end of the names in PATH1 and PATH2--otherwise, trailing blanks in
PATH1 and PATH2 are ignored. See `rename(2)'. Returns 0 on success or
a non-zero error code.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note Rename
Intrinsic (subroutine)::.
File: g77.info, Node: Secnds Intrinsic, Next: Signal Intrinsic (function), Prev: Rename Intrinsic (function), Up: Other Intrinsics
Secnds Intrinsic
................
Secnds(T)
Secnds: `REAL(KIND=1)' function.
T: `REAL(KIND=1)'; scalar; INTENT(IN).
Intrinsic groups: `vxt'.
Description:
Returns the local time in seconds since midnight minus the value T.
This values returned by this intrinsic become numerically less than
previous values (they wrap around) during a single run of the compiler
program, under normal circumstances (such as running through the
midnight hour).
File: g77.info, Node: Signal Intrinsic (function), Next: SinD Intrinsic, Prev: Secnds Intrinsic, Up: Other Intrinsics
Signal Intrinsic (function)
...........................
Signal(NUMBER, HANDLER)
Signal: `INTEGER(KIND=7)' function.
NUMBER: `INTEGER'; scalar; INTENT(IN).
HANDLER: Signal handler (`INTEGER FUNCTION' or `SUBROUTINE') or
dummy/global `INTEGER(KIND=1)' scalar.
Intrinsic groups: `badu77'.
Description:
If HANDLER is a an `EXTERNAL' routine, arranges for it to be invoked
with a single integer argument (of system-dependent length) when signal
NUMBER occurs. If HANDLER is an integer, it can be used to turn off
handling of signal NUMBER or revert to its default action. See
`signal(2)'.
Note that HANDLER will be called using C conventions, so the value
of its argument in Fortran terms is obtained by applying `%LOC()' (or
LOC()) to it.
The value returned by `signal(2)' is returned.
Due to the side effects performed by this intrinsic, the function
form is not recommended.
*Warning:* If the returned value is stored in an `INTEGER(KIND=1)'
(default `INTEGER') argument, truncation of the original return value
occurs on some systems (such as Alphas, which have 64-bit pointers but
32-bit default integers), with no warning issued by `g77' under normal
circumstances.
Therefore, the following code fragment might silently fail on some
systems:
INTEGER RTN
EXTERNAL MYHNDL
RTN = SIGNAL(SIGNUM, MYHNDL)
...
! Restore original handler:
RTN = SIGNAL(SIGNUM, RTN)
The reason for the failure is that `RTN' might not hold all the
information on the original handler for the signal, thus restoring an
invalid handler. This bug could manifest itself as a spurious run-time
failure at an arbitrary point later during the program's execution, for
example.
*Warning:* Use of the `libf2c' run-time library function `signal_'
directly (such as via `EXTERNAL SIGNAL') requires use of the `%VAL()'
construct to pass an `INTEGER' value (such as `SIG_IGN' or `SIG_DFL')
for the HANDLER argument.
However, while `RTN = SIGNAL(SIGNUM, %VAL(SIG_IGN))' works when
`SIGNAL' is treated as an external procedure (and resolves, at link
time, to `libf2c''s `signal_' routine), this construct is not valid
when `SIGNAL' is recognized as the intrinsic of that name.
Therefore, for maximum portability and reliability, code such
references to the `SIGNAL' facility as follows:
INTRINSIC SIGNAL
...
RTN = SIGNAL(SIGNUM, SIG_IGN)
`g77' will compile such a call correctly, while other compilers will
generally either do so as well or reject the `INTRINSIC SIGNAL'
statement via a diagnostic, allowing you to take appropriate action.
For information on other intrinsics with the same name: *Note Signal
Intrinsic (subroutine)::.
File: g77.info, Node: SinD Intrinsic, Next: SnglQ Intrinsic, Prev: Signal Intrinsic (function), Up: Other Intrinsics
SinD Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL SinD' to use this name for an
external procedure.
File: g77.info, Node: SnglQ Intrinsic, Next: SymLnk Intrinsic (function), Prev: SinD Intrinsic, Up: Other Intrinsics
SnglQ Intrinsic
...............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL SnglQ' to use this name for an
external procedure.
File: g77.info, Node: SymLnk Intrinsic (function), Next: System Intrinsic (function), Prev: SnglQ Intrinsic, Up: Other Intrinsics
SymLnk Intrinsic (function)
...........................
SymLnk(PATH1, PATH2)
SymLnk: `INTEGER(KIND=1)' function.
PATH1: `CHARACTER'; scalar; INTENT(IN).
PATH2: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Makes a symbolic link from file PATH1 to PATH2. A null character
(`CHAR(0)') marks the end of the names in PATH1 and PATH2--otherwise,
trailing blanks in PATH1 and PATH2 are ignored. Returns 0 on success
or a non-zero error code (`ENOSYS' if the system does not provide
`symlink(2)').
Due to the side effects performed by this intrinsic, the function
form is not recommended.
For information on other intrinsics with the same name: *Note SymLnk
Intrinsic (subroutine)::.
File: g77.info, Node: System Intrinsic (function), Next: TanD Intrinsic, Prev: SymLnk Intrinsic (function), Up: Other Intrinsics
System Intrinsic (function)
...........................
System(COMMAND)
System: `INTEGER(KIND=1)' function.
COMMAND: `CHARACTER'; scalar; INTENT(IN).
Intrinsic groups: `badu77'.
Description:
Passes the command COMMAND to a shell (see `system(3)'). Returns
the value returned by `system(3)', presumably 0 if the shell command
succeeded. Note that which shell is used to invoke the command is
system-dependent and environment-dependent.
Due to the side effects performed by this intrinsic, the function
form is not recommended. However, the function form can be valid in
cases where the actual side effects performed by the call are
unimportant to the application.
For example, on a UNIX system, `SAME = SYSTEM('cmp a b')' does not
perform any side effects likely to be important to the program, so the
programmer would not care if the actual system call (and invocation of
`cmp') was optimized away in a situation where the return value could
be determined otherwise, or was not actually needed (`SAME' not
actually referenced after the sample assignment statement).
For information on other intrinsics with the same name: *Note System
Intrinsic (subroutine)::.
File: g77.info, Node: TanD Intrinsic, Next: Time Intrinsic (VXT), Prev: System Intrinsic (function), Up: Other Intrinsics
TanD Intrinsic
..............
This intrinsic is not yet implemented. The name is, however,
reserved as an intrinsic. Use `EXTERNAL TanD' to use this name for an
external procedure.